PC-X 1997 October/pcx14_9710.iso/swag/delphi.swg/0232_Re: RTF -> plain text.pas

Pascal/Delphi Source File | 1997-03-04 | 1009 b | 36 lines

{
> I use a RichEdit in one of my apps with plaintext set to false, since
> I do some color coding. Now, when I copy RTF text from e.g. Word and
> paste it into my app, the size and font is also pasted, but I just
> want the text without RTF information.
<snip>
> What would be the proper way to paste just the plaintext of RTF text
> in the clipboard into the RichEdit?

Proper? I don't know about its propriety, but the following routine
works.

Please note that this doesn't override the rich edit control's
standard paste function, so sending it a WM_PASTE message, (by
pressing Ctrl-V, perhaps) will still paste formatted text.
}

procedure PasteTextOnly(dest: TRichEdit);
var
  MyHandle: THandle;
  TextPtr: PChar;
begin
  ClipBoard.Open;
  Try
    MyHandle := Clipboard.GetAsHandle(CF_TEXT);
    TextPtr := GlobalLock(MyHandle);
    try
      dest.SetSelTextBuf(TextPtr);
    finally
      GlobalUnlock(MyHandle);
    end;
  finally
    Clipboard.Close;
  end;
end;